      subroutine tranlg

      use param
      use allocs

#include <global.h>
      include 'ntbytes.h'
      include 'geom.h'
      include 'geomf.h'
      include 'xsec.h'
      include 'setls.h'
      include 'sanm.h'
      include 'eigv.h'

!     Node Averaged Flux
      do im=1,ng
        jb=1
        je=0
        do i=1,tnode
          sum1=0
          sum2=0
          sum3=0
          sum4=0
          je=je+fn(i)
          do j=jb,je
            sum1=sum1+aflx(1,j,im)
            sum2=sum2+aflx(2,j,im)
            sum3=sum3+pphi(1,j,im)
            sum4=sum4+pphi(2,j,im)
          enddo
          jb=j
          avgflx(1,i,im)=sum1/fn(i)
          avgflx(2,i,im)=sum2/fn(i)
          psphi(1,i,im)=sum3/fn(i)
          psphi(2,i,im)=sum4/fn(i)
        enddo
      enddo

      call dumflx

      do im=1,ng
        j=1
        do i=1,tnode+1
!     Net Current
          jnet(1,i,im)=jnetf(1,j,im)
          jnet(2,i,im)=jnetf(2,j,im)
!     Surface Flux
          sflux(1,i,im)=sflx(1,j,im)
          sflux(2,i,im)=sflx(2,j,im)
          j=j+fn(i)
        enddo
      enddo

      end subroutine
